1. IDENTIFICATION 
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The A/D Converter Test for the 138E/139E and 189 converters is a set of routines designed for 
maintenance personnel to aid in debugging hardware troubles, and as a periodic confidence check for data 
flags, interrupts, monotonicity, steady state accuracy, multiplexer selection and incrementation ability 
of the multiplexer . 

3. REQUIREMENTS 

3.1 Storage 

The program uses memory 0 to 1500, and 6001 to 6100. 

3.2 Subprograms and/or Subroutines (None) 

3.3 Equipment 

Standard PDP-8, Automatic A/D Converter Tester*, A/D converter 138E with or without multi- 
plexer 1 39E, or the 189 A/D converter. In lieu of the automatic tester, a high accuracy voltage standard 
should be used for manual check out. 

3.3.1 6032 KCC is used to clear the automatic tester. 

6034 KRS is used to increment the automatic tester. 

3.3.2 For automatic clearing and incrementing of the automatic tester, connections must be made 
between IOT terminal points on the computer and connecting points on the automatic tester. 

3.3.3 The digital-to-analog output of the automatic tester can be connected to the multiplexer input 
or directly to the A/D input. 

4. USAGE 

4.1 Loading 

The program is in binary format. Load the program into core by following the instructions 
published for the particular binary format loader being used. 

4.2 Calling Sequence 

4.2.1 If a voltage standard is being used in place of the automatic tester, use 660 as a starting ad- 

dress, and the program comes to a normal halt. Then go to one of the following six starting addresses. 

4.2.4 For initial start-up using the tester, use one of these six addresses; or use these addresses after 
manual start-up is used. 


Mode 

138E 

189 

10 Bit 

613 

626 

11 Bit 

611 

622 

1 2 Bit 

600 

616 


Automatic A/D Converter Tester ^7605039-0 
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4.2.3 Multiplexer Test - For an automatic test of a!! switches for the multiplexer, go to one of the 
six initial start-up addresses, halt, then go to address 1000 to start, 

4.2.4 For automatic recycle at the maximum multiplexer switch, memory location switch* should 
equal maximum switch number. 

4.3 Switch Settings 

For normal operation with no errors, ail switches can be down. For looping, inhibiting print 
outs, and selecting multiplexer channel, the switches may be used as follows: 

SR 0 to 5 Multiplexer Channel 

SR 6 = 1 Inhibit Printouts 

SR 7 = 1 Halt at End of Sub Test 

SR 8 — 1 Use SR 0 to 5 as Multiplexer Channel 

SR 9 = 1 Subsection Repeat 

SR 10 = 1 Not Used 

SR 1 1 =1 Subproblem Repeat 



4.4 

Start-Up and/or Entry 

4.4.1 

Manual - Use SA = 660. Then use one of the following starting addresses 

4.4.2 

Auto - 1 38 E 

1 0 Bit Mode SA = 61 3 


1 38E 

1 1 Bit Mode SA = 61 1 


1 38E 

12 Bit Mode SA = 600 


189 

10 Bit Mode SA = 626 


189 

1 1 Bit Mode SA = 622 


189 

1 2 Bit Mode SA = 61 6 


* Switch = 142 
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4,4.3 

Automatic incrementation of Mux channel: 

SA = 1000 

4.4,4 

To loop on done flag: 

SA = 601 and SR 1 1 =>1 

4.4,5 

To loop on interrupt; 

SA = 604 and SR 1 1 4>1 

4,4.6 

To loop steady state accuracy: 

SA = 407 and SR 9 =>1 

4,4.7 

To loop monotonicity: 

SA = 402 and SR 9 =>1 

4.4.8 

Start address for manual: 

SA =>660 

4,4.9 

Restart for A/D test: 

SA = 400 

4.4.10 

To loop on steady state read; 

SA = 400 and SR 1 1 =>1 

4.4.11 

To display 1 38E converted value in AC: 

SA = 1050 

4.4.12 

To display 189 converted value in AC: 

SA = 1075 

4.5 

Errors in Usage 


4.5.1 

All errors are convered by printouts. 



Printouts 

Manual 

Auto 

1 38E 

189 

Meaning 

No Flag 

X 

X 

X 


Unable to raise flag 

No Interrupt 

X 

X 

X 


Unable to raise interrupt 

Interrupt Up 

X 

X 

X 


Interrupt always UP will not drop 

XXXX>1 .25 


X 

X 

X 

Narrow voltage state 
Voltage less than 1 .25 mv 

XXXX DIP 


X 

X 

X 

Switching point greater than 1 LSB 

Limits Bad 


X 

X 

X 

Voltage scale incorrect 

3 States XXXX/ . XX/ -XX/+XX 


X 

X 

X 

3 stating error, number of times 
at value, below, above 

Pass Complete 


X 

X 

X 

One pass of monotonicity and 
steady state 

Pass Complete Sw XX 


X 

X 


Same as above except automatic 
incrementation of mu Itiplexer 
switch 

XXXX/ . XX/ -XX/+XX 

X 


X 

X 

Manual check only showing rela- 
tive values 


4,5.2 Da not use initial start address more than once, restart all testing at 400, except for the 

automatic multiplexer incrementation switch test which starts at 1000. 


4.6 


Error Recovery 

No halt occurs unless requested by the switch register (SR7). Depress CONTINUE to recover. 
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5. RESTRICTIONS 

5.1 Status Active Register 

Autoindex Registers 10 and 11 are used by the program. 

5 .2 Status of Core 

The main program uses core in the area 0 to 1500 for program storage and core 6001 and 6100 
as converted data storage . 

6. DESCRIPTION 

6.1 Discussion 

This package contains routines to aid the operator in troubleshooting the equipment, assuring 
him of its correct operation. The nature of analog-to-digital converters precludes a completely automatic 
diagnostic type of program. To this objective, the status printouts show: 

1 . Three stating conditions 

2. Voltage states that are very narrow 

3. Improper voltage limits 

These checks are made by two tests: one checking steady state accuracy and the other checking monoton- 
icity. A correlation should exist between printouts generated by these two tests to indicate a calibration 
or a digital error. If a relationship cannot be found, this indicates the printouts were due to noise pickup 
and/or poor grounds. 

6.2 Examples and/or Applications 

6.2.1 Monotonicity is one way to assure that ail bits are meaningful . This means that all states 
must exist and must be in the correct order. In terms of converter operation, as the number going to the 
digitai-to-analog converter is increased, the output voltage must also increase; it should never dip back 
down at any point. Similarly, if the input voltage to analog-to-digital converter is increased, the digital 
output should stay in the same value or increase and should not skip over any states. 

6.2.2 Steady state accuracy is one way to measure the repeatability of the converter. If a voltage 
going to an analog-to-digital converter remains constant, the converted digital value should maintain an 
accuracy of ±1/2 LSB. This means that there may be two acceptable converted digital values for one 
analog voltage in . 

6.3 Scaling 

The only type of scaling used is word length, and this is accomplished by using the correct 
starting address. Memory location mode contains the correct scale factor . 

12- Bit Word (Mode) = 1 ^ 

1 1-Bit Word (Mode) = 2^ 

10-Bit Word (Mode) = 4^ 

If there is a need to go to a smaller word, the value in Mode may be changed manually after 
using one of the six starting addresses, then restarting at 400, (i.e», 9-Bit Word (Mode) = 10^). 
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7. METHODS 

7.1 Discussion 

See paragraph 6. 1 . 

8. FORMAT 

8 . 1 Input Data 

Input data is an analog voltage converted to a digital value by the analog-to-digital converter. 
8 .2 Core Data 

The core data is the output of the analog-to-digital converter. This data is stored in core 

6001 to 6100. 

8.3 Output Data (Not Applicable) 

8.4 Miscellaneous 

8.4.1 Three-stating printout (11 -Bit Mode) 

(a) 3 States 1 376/ . 44/- 25/+05 

(b) 3 States 1 374/. 1 7/-00/+03 

(c) 3 States 1 400/.06/-27/+00 

(d) 3 States 1 376/.00/-24/+52 

The above printouts were caused by a three stating of the analog-to-digital converter. A 
field of 77 ( 8 ) conversions of the same analog value are stored in a buffer. The first word in the buffer is 
used as a reference word; a record is made each time the reference word, a value less than the reference 
word, and a value greater than the reference word are found. For example, in (a) 1376 was the first word 
in the buffer and was found 44(g) times, 1374 was found 25(g) times and 1400 was found 05(g) times. 

1372 
1374 ] 

1376 ? 3 Stating Values 

1400 J 
1402 

In (b) it is not quite as clear, the first word was 1374 and was found 17(g) times, the value 
below it was not found at all, the value above it was found 3(g) times. 

1372 Not found 

1374 1 Reference word 

1376 r 3 Times 3 Stating Values 

1400 J The third state 

1402 
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The reference word is not made the center value of a three stating condition, therefore it is possible for 
one of the values to show as occuring 00 times. In case (c) it was the value above the reference value 
that was not found » 


1372 

1374 

1376 

1400 

1402 


The third state 
27 times 
Reference 
Not found 


3 Stating Values 


Case (d) is a rare condition where the three stating conditions only occurred one time and it 
was the reference value, the first word in the buffer, which caused the three stating condition. An in- 
spection of the buffer area 6001 to 6100 shows the value stored. 


8.4.2 


Monotonicity printouts (11 -Bit Mode) 

(a) 1376C1.25 

(b) 6732 DIP 

(c) Bad limits 



|< — 8192^q^ Voltage steps 


Maximum Voltage 




Minimum Voltage 


1 .25 mv @ step 

Case (a) is where the converted value 1374 was found, but before 1376 was found the conver- 
ted value 1400 was reached. This infers that the voltage state which generates the converted value is 
less than 1 .25 mv wide. 


Case (b) is when 6730 was the previous voltage stored, the value 6732 is the next expected 
value. Instead of storing the same or increasing, the next converted value decreases to 6724, 

Case (c) is when the last converted value at the end of the test does not agree with a pre- 
dicted value. This indicates need of readjustment of gain or off set. 


9. EXECUTION TIME 

Each pass takes about one minute (with printouts the time increases). 

10, PROGRAM 

10.1 Core Map (None) 

10.2 Dimension List(s) (None) 

10.3 Macro, Parameter, and Variable Lists (None) 
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10.4 Program Listing 

/A/D CONVERTER 
/CONSTANTS 


*01 


0001 

6002 

I OF 



0002 

5403 

JMP I . 4-1 



0003 

1547 

INTENT+14 





*20 



00 2 0 

0001 

SWTEST, 

0001 

/SUB PROBLEM RPT 

0021 

0002 

0002 


/SUB SECTION RPT 

0022 

0004 

0004 


/SECTION RPT 

0023 

0010 

0010 


/SEL MUX CHANNEL 

0024 

0020 

0020 


/HALT 

0025 

0040 

0040 


/PRINT 



/FOR PRINT 



0026 

0007 

MASKA , 

0007 

/CHAR MASK 

0027 

0000 

0 


/TEM STORAGE 

0030 

0070 

M ASKB » 

0070 

/MASK 

0031 

0000 

0 


/TEM STORAGE 

0032 

0700 

MASKC, 

0700 

/MASK 

0033 

0000 

0 


/TEM STORAGE 

0034 

7000 

MASKD, 

7000 

/MASK 

0035 

0000 

0 


/TEM STORAGE 

0036 

6060 

6060 


/CONSTANT FOR NUMBERS 

0037 

0000 

TEMPE, 

0 

/STORAGE 

0040 

0000 

DATA f 

0000 

/GENERATE DATA FOR TEST 

0041 

6000 

INRUFF , 

6000 

/IN COUNTER 

0042 

6100 

TBUFF , 

6100 

/DATA BUFFER UPPER LIMITS 

0043 

6000 

INLL, 

6000 

/LOWER LIMIT CONSTANT 

0044 

6100 

TESTL1, 

6100 

/LOWER LIMIT CONSTANT 

0045 

6101 

TESTL2 * 

6101 

/TEST BUFFER UPPER LIMITS 

0046 

0000 

BAD, 

0 

/BAD DATA 

0047 

0002 

CONI , 

0002 

/UP DOWN COUNT 

0050 

0000 

TEM1 , 

0 

/TEMP STORAGE UP DOWN 

0051 

7701 

LOOP, 

7701 

/LOOP COUNT 

0052 

0000 

0 


/LOOP COUNTER DATA 

0053 

0000 

0 


/LOOP COUNTER SECTION 

0054 

0000 

0 



0055 

0000 

MODE, 

0 

/MODE STORAGE 

0056 

0631 

X 1189, 

1189 

/instruction conversion V 

0057 

1522 

XDTFLA, 

dtflag 

/CHECK FOR DONE FLAG 

0060 

1533 

XINTEN, 

intent 

/CHECK FOR INTERRUPT 

0061 

0567 

XINSTA, 

INSTA 

/FORCE PRINT OUT 

0062 

0547 

XINSTB , 

I NSTB 

/REMOVE ERROR PRINTOUT 



/CONSTANTS 



0063 

0046 

XBAD , 

BAD 


0064 

0200 

XHSSG, 

MESAGE 


0065 

0672 

XTEXTA , 

TEXTA 

/3 STATES 

0066 

0703 

XTEXTB , 

TEXTB 

/CR AND LF 

0067 

1366 

XTEXTC , 

TEXTC 

/XX DIP 
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0070 

0000 

XLOOP , 

0 



0071 

5470 

JMP I .-1 




0072 

1261 

XERR , 

HALT 



00 73 

0000 

0000 




0074 

0000 

CHaN, 

0 


/CHANNEL COUNTER 

0075 

0000 

B WORD , 

0 


/WORD BUFFERED IN 

0076 

4001 

TESTA » 

4001 



0077 

4000 

TESTB, 

4000 



0100 

3777 

TESTC, 

3777 



0101 

0000 

STSW, 

0 


/SWITCH STORAGE 

0102 

0710 

XSPL, 

SPL 


/SUB PROBLEM LOOP 

0103 

0571 

X I NC ? 

INC 


/SET+1 TO MUX 

0104 

1261 

XHALT , 

HALT 



0105 

0732 

X MU X 3 9 » 

MUX39E 


/INCREMENT MUX 

0106 

0000 

FLAG, 

0 



0107 

1200 

XTRXAL » 

TRXAL 



0110 

7776 

MASKF , 

7776 



0111 

0453 

XSTDAT, 

STDATA 



0112 

0000 

PTEX, 

0 


/COUNT FROM ETA8LE 

0113 

7735 

7735 


/FIELD 

COUNT 

0114 

0000 

0 


/COUNTER 

0115 

1346 

XTEXTE, 

TEXTE 


/PASS COMPLETE 

0116 

1361 

XTEXTF , 

TEXTE 


/SPACE MINUS 

0117 

0717 

XTEXTG . 

TEXTG 


/INTERRUPT OP ALL THE 

0120 

0000 

ctema, 

0 


/ORIGINAL MINUS ONE 

0121 

0000 

ctemb, 

0 


/ORIGINAL NUMBER 

0122 

0000 

ctemc, 

0 


/ORIGINAL PLUS ONE 

0123 

0000 

CCONT A # 

0 


/A COUNTER 

0124 

0000 

CCONTB , 

0 


/B COUNTER 

0125 

0000 

CCONTC , 

0 


/C COUNTER 

0126 

0273 

XER, 

ER 



0127 

1513 

XERDIP, 

ERDIP 


/VOLTAGE DIP 

0130 

1400 

XALLNU, 

ALLNUM 


/ALL NMBER CHECK 

0131 

0400 

xadtes. 

ADTEST 



0132 

0421 

X AUTO , 

AUT038 



0133 

0321 

XTEXTK , 

TEXTK 


/3 STATEX/X/X/X/X/ 

0134 

1504 

XERNUM, 

ERNUM 



0135 

0337 

XTEXTL , 

TEXTL 


/XXXX <1.25 

0136 

1300 

XTEXTM , 

TEXTM 


/NO FLAG 

0137 

1310 

XTEXTN, 

TEXTN 


/NO INTERRUPT 

0140 

1323 

XTFXTP, 

TEXTP 


/LIMITS BAD 

0141 

1335 

XTEXTR , 

TEXTR 


/XXX DIP 

0142 

7777 

SWITCH, 

7777 


/MANUAL INSERT OF MAX 

0143 

0 74 5 

XTOXOR , 

TOXOR 


/VOLTAGE SETUP FOR 189 

0144 

0351 

XXOR, 

XOR 


/EXCLUSIVE OR 



/alphanumeric MESSAGE 

TYPEOUT 

SUBROUTINE 



*200 




0200 

0000 

MES AGE , 

0 



0201 

7604 

LAS 


/CHECK 

FOR PRINT 

0202 

0025 

AND SWTEST+5 

/XX4X 


0203 

7640 

S 2 A CLA 




0204 

5206 

JMP .+2 
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0205 

5214 

JMP 

, 4-7 


0206 

1110 

TAD 

MASKF 


0207 

1200 

TAD 

MESAGE 


0210 

3200 

DC A 

MESAGE 


0211 

1600 

TAD 

I MESAGE 


0212 

3200 

DC A 

MESAGE 


0213 

5600 

JMP 

I MESAGE 

/NO PRINT 

0214 

7240 

CLA 

CM A 

/SET C ( A C ) = -1 

0215 

1200 

TAD 

MESAGE 

/ADD LOCATION 

0216 

3010 

DCA 

10 

/AUTO-INDEX REGISTER 

0217 

1410 

TAD 

I 10 

/FETCH FIRST WORD 

0220 

3231 

DCA 

MSRGHT 

/SAVE IT 

0221 

1231 

TAD 

MSRGHT 


0222 

7012 

RTR 



0223 

7012 

RTR 


/ROTATE 6 BITS RIGHT 

0224 

7012 

RTR 



0225 

4232 

JMS 

TYPECH 

/TYPE IT 

0226 

1231 

TAD 

MSRGHT 

/GET DATA AGAIN 

0227 

4232 

JMS 

TYPECH 

/TYPE RIGHT HALF 

0230 

5217 

JMP 

MESAGE+17 

/CONTINUE 

0231 

0000 

MSRGHT 

0 

/TEMPORARY STORAGE 

0232 

0000 

TYPECP 

1, 0 

/TYPE CHARACTER IN C( AC>6 

0233 

0263 

AND 

MASK77 


0234 

7450 

SNA 


/IS IT END OF MESSAGE? 

0235 

5410 

JMP 

I 10 

/YES: EXIT 

0236 

1264 

TAD 

M40 

/SUBTRACT 40 

0237 

7500 

SMA 


/<40 ? 

0240 

5243 

JMP 

. +3 

/NO 

0241 

1265 

TAD 

C340 

/YES: ADD 300 

0242 

5256 

JMP 

MTP 

/TO CODES <40 

0243 

1266 

TAD 

M3 

/SUBTRACT 3 

0244 

7440 

SZA 


/IS IT ZERO? 

0245 

5250 

JMP 

. +3 

/NO 

0246 

1267 

TAD 

C212 

/YES : CODE 43 IS 

0247 

5256 

JMP 

MTP 

/LINE-FEED ( 212) 

0250 

1270 

TAD 

M2 

/SUBTRACT 2 

0251 

7440 

SZA 


/IS IT ZERO? 

0252 

5255 

JMP 

. +3 

/NO 

0253 

1271 

TAD 

C215 

/YES : CODE 45 IS 

0254 

5256 

JMP 

MTP 

/CARRIAGE-RETURN (215) 

0255 

1272 

TAD 

C245 

/ADD 200 TO OTHERS >40 

0256 

6046 

MTP, 

TLS 

/TRANSMIT CHARACTER 

0257 

6041 

TSF 


/WAIT FOR FLAG 

0260 

5257 

JMP 

. ”1 

/NOT SET YET 

0261 

7200 

CLA 


/SET : CLEAR C ( AC ) 

0262 

5632 

JMP 

I TYPECH 

/RETURN 



/CONSTANTS 


0263 

0077 

MASK77 

, 77 


0264 

7740 

M40 , 

-40 


0265 

0340 

C340 , 

340 


0266 

7775 

M3 , 

- 3 


0267 

0212 

P O i O 
UcIl $ 

212 


0270 

7776 

M 2 , 

-2 


0271 

0215 

C215, 

215 


0272 

0245 

C245, 

245 
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/sft UP 

FOR TEXTK 


0273 

5273 

ER, 

JMP . 


0274 

7200 

CLA 



0275 

4507 

JMS I 

XTRXAL 

/PRINT 

0276 

6001 

6001 



0277 

0325 

TEXTK+4 

/MSB 

0300 

0326 

TEXTK + 5 


0301 

4507 

JMS I 

XTRXAL 


0302 

0124 

CCONTB 


0303 

0000 

0 



0304 

0330 

TEXTK+7 


0305 

4507 

JMS I 

XTRXAL 


0306 

0123 

CCONTA 



0307 

0000 

0 


/MSB 

0310 

0332 

TEXTK+11 

/LSB 

0311 

4507 

JMS I 

XTRXAL 


031 2 

0125 

CCONTC 


/MSB 

0313 

0000 

0 


/LSB 

031 4 

0334 

TEXTK+13 


031 5 

4465 

JMS I 

X TEXT A 


0316 

4533 

JMS I 

XTEXTK 

/3 STATES 

031 7 

4504 

JMS I 

xhalt 


0320 

5673 

JMP I 

FR 


0321 

5321 

TEXTK , 

JMP . 


0322 

4464 

JMS I 

XMSSG 


0323 

4040 

4040 


/(VALUE) /./-/+ 

0324 

4040 

4040 



0325 

6060 

6060 


/VALUE 

0326 

6060 

6060 



0327 

5756 

5756 


/ . 

0330 

6060 

6060 


/COUNT 

0331 

5755 

5755 


/- 

0332 

6060 

6060 


/COUNT 

0333 

5753 

5753 


/ + 

0334 

6060 

6060 


/COUNT 

0335 

0000 

0000 



0336 

5721 

JMP I 

TEXTK 


0337 

5337 

TEXTL, 

JMP . 

/XXXX>1 „ 25 

0340 

4464 

JMS I 

XMSSG 


0341 

4543 

4543 



0342 

6060 

6060 



0343 

6060 

6060 



0344 

4074 

4074 



0345 

4061 

4061 



0346 

5662 

5662 



0347 

6500 

6500 



0350 

5737 

JMP I 

TEXTL 


0351 

5351 

X 0 R » 

JMP . 

/EXECLUSI VE OR 

0352 

3365 

DCA ALOC 


0353 

1751 

TAD I 

X OR 


0354 

3366 

DCA BLOC 


0355 

1365 

TAD ALOC 


0356 

0766 

AND I 

BLOC 


0357 

7041 

CIA 



0360 

7104 

CLL RAL 




0 3 61 

1365 

TAD ALOC 


0 3 6 2 

1766 

TAD I BLOC 


0363 

2351 

ISZ XOR 


0364 

5751 

J HP I XOR 


0365 

0000 

ALOC, 0 


0366 

0000 

BLOC, 0 

*400 


0400 

1101 

ADTEST, TAD STSW 


0401 

6542 

A DSC 


0402 

4530 

JMS I XALLNU 


0403 

7604 

LAS 

/ 0 0 0 4 

0404 

0022 

AND S WTEST+2 


0405 

7440 

SZA 


0406 

5202 

JMP . -4- 

/LOOP SECTION 

0407 

4221 

JHS AUT038 


0410 

7604 

LAS 


0411 

0022 

AND SWTEST+2 


041 2 

7440 

SZA 


041 3 

5207 

JMP .-4 

/LOOP SECTION 

041 4 

4505 

JMS I X MUX 39 

/MUX CHANNEL 

041 5 

4515 

JMS I XTEXTE 

/PASS COMPLETE 

041 6 

4466 

JMS I XTEXTB 

/CR+LF 

041 7 

4466 

JMS I XTEXTB 

/CR+LF 

0420 

5200 

JMP ADTEST 
/A-D CONVERTER TEST 


0421 

5221 

AUT038, JMP . 


0422 

4232 

JMS HOKEEP 

/HOUSEKEEP I NG 

0423 

4070 

JMS XLOOP 

/SF T UP FOR LOOP 

0424 

4253 

JMS STOATA 

/STORE A/D CONVERTER 

0425 

4271 

JMS COMPAR 

/COMPARE 

0426 

4502 

JMS I XSPL 

/CHECK FOR SUB PROBLEM LOOP 

0427 

4503 

JMS I X INC 

/INCREMENT AND CHECK FOR DONE 

0430 

4504 

JMS I XHALT 

/CHECK FOR HALT 

0 431 

5621 

JMP I AUT038 

/DONE 

0432 

5232 

HOKEEP, JMP . 


0433 

7200 

CLA 

/BASE DATA 

0434 

3040 

DC A DATA 

/PRED DATA 

0435 

6032 

KCC 

/CLEAR TESTER 

0436 

1.051 

TAD LOOP 

/LOOP COUNTER C.T. 

0437 

3052 

OCA LOOP+1 

/LOOP COUNTER 

0440 

1043 

TAD I NLL 

/CONSTANT 

0441 

3041 

D C A INRUFF 

/TEMP 

0442 

1110 

TAD MASKF 


0443 

3054 

DC A L00P + 3 

/K = 2 

0444 

1 044 

TAD TESTL1 

/CONSTANT 

0445 

3042 

D C A TBUFF 

/TEMP 

0446 

1047 

TAD CONI 

/MONOTONIC CITY 

0447 

3050 

DCA T EM 1 

/TEMP 

0450 

3106 

DC A FLAG 

/ALTERNATE 

0451 

3053 

DCA L00P+2 

/SECTION COUNTER 

0452 

5632 

JMP I HOKEEP 

/RETURN 
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/STORE CONVERTED DATA IN CORE 6001 TO 6100 FOLLOW BY 
/STEADY STATE ACCURACY TEST 


0 45 3 

5253 

stdata 

, JMP . 


0 4 5 4 

7200 

CLA 



0 4 55 

1043 

TAD 

I NLL 

/ 6 000 

0456 

3011 

D C A 

11 

/CURRENT ADDRESS 

0457 

1051 

TAD 

LOOP 

/LOOP COUNT 

0460 

3052 

D C A 

LOOP + 1 

/COUNTER 

0461 

6532 

A D C V 


/ I N I T CONVERTER 

0462 

6531 

A DSF 


/WAIT FOR FLAG 

0 4 6 3 

5262 

JMP 

. -I 

/FOR 189 = JMP . 

0464 

65 3 4 

A DRB 


/READ/CONVERTER 

0465 

3411 

D C A 

I 11 

/FIRST WORD 6001 

0466 

2052 

ISZ 

LOOP + 1 

/COUNTER 

0467 

5261 

JMP 

. - 6 

/READ MORE 

0470 

5653 

JMP 

I STDATA 




/compare housekeep 


0471 

5271 

COMPAR 

, JMP . 


0472 

7200 

CLA 



0473 

1 043 

TAD 

I NLL 

/BASE 6000 

0474 

3011 

D C A 

11 


04 75 

1051 

TAD 

LOOP 

/COUNT 

0476 

3052 

OCA 

LOOP+1 

/COUNTER 

0477 

2052 

I SZ 

L 0 0 P + 1 


0500 

3120 

DC A 

CTFMA 

/DATA- 

0501 

3121 

D C A 

ctemb 

/data 

0502 

3122 

D C A 

ctemc 

/D A T A + 

0503 

3123 

D C A 

cconta 

/COUNTER-1 

0504 

3124 

D C A 

CCONTB 

/COUNTER 

0505 

3125 

DC A 

CCONTC 

/COUNTER+1 

0 50 6 

1411 

TAD 

I 11 


0507 

3046 

D C A 

BAD 


051 0 

1046 

TAD 

BAD 


051 1 

7041 

C I A 



051 2 

3121 

DC A 

CTEMB 

/DATA 

051 3 

1055 

TAD 

MODE 


0514 

7041 

C I A 



051 5 

1121 

TAD 

CTEMB 


051 6 

3122 

DC A 

CTEMC 

/DATA+ 

051 7 

1121 

TAD 

CTEMB 


0520 

1 055 

TAD 

MODE 


0521 

3120 

DC A 

ctema 

/DATA- 



/START 

COMPARE 


0522 

1411 

TAD 

I 11 


0523 

30 4 6 

D C A 

BAD 


05 2 4 

1 046 

TAD 

BAD 


0 52 5 

1120 

TAD 

CTFMA 


0526 

7640 

SZA 

CLA 


0527 

5332 

JMP 

. +3 

/TRY NEXT 

0 5 3 0 

2123 

I SZ 

CCONTA 


05 31 

5345 

JMP 

,+14 

/INC LOOP+1 

0532 

1 046 

TAD 

BAD 


05 3 3 

1121 

TAD 

CTEMB 


0534 

7640 

S Z A 

CLA 




Maindec 845 
Page 13 


0535 

0536 

0537 

0540 

0541 

0542 

0543 

0544 

0545 

0546 


0547 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 
0570 


0571 

0572 

0573 

0574 

0575 

0576 

0577 


0600 

0601 

0602 

0603 

0604 

0605 

0606 
0607 
061 0 
0611 
061 2 

061 3 
0614 


5340 

JMP 

. +3 


/TRY NEXT 



2124 

ISZ 

CCONTB 





5345 

JMP 

. + 6 


/INC LOOP + 1 



1046 

TAD 

BAD 





1122 

TAD 

CTEMC 





7640 

S Z A 

CLA 





5345 

JMP 

• + 2 





2125 

ISZ 

CCONTC 





2052 

ISZ 

LOOP+1 


/INC LOOP COUNTER 



5322 

JMP 

. -24 


/LOOP TILL DONE 




/ANY 

ZERO 





7201 

INSTB 

, CLA 

I AC 




1123 

TAD 

CCONTA 


/ A + 1 



1124 

TAD 

CCONTB 


/ A + B + 1 



1125 

TAD 

CCONTC 


/A+B+C+l 



1051 

TAD 

LOOP 


/A+B+C+LOOP+1=0000 



7440 

SZA 






5367 

JMP 

. +12 


/ERROR 



1123 

TAD 

CCONTA 





7650 

SNA 

CLA 





5671 

JMP 

I COMPAR 


/OK EXIT 



1124 

TAD 

CCONTB 





7650 

SNA 

CLA 





5671 

JMP 

I COMPAR 


/OK EXIT 



1125 

TAD 

CCONTC 





7650 

SNA 

CLA 





5671 

JMP 

I COMPAR 


/OK EXIT 



4526 

INSTA 

, JMS 

I xer 


/NO 

ZERO COUNT FOUND 

5671 

JMP 

I COMPAR 


/EXIT 




/INC. 

TESTER TEST FOR 

DONE 



5371 

INC, 

JMP 





6034 

KRS 



/PLUS ONE TO TESTER 



2053 

ISZ 

L00P+2 





5470 

JMP 

I XLOOP 


/LOOP TO ST DATA 



2054 

ISZ 

LOOP+3 





5470 

JMP 

I XLOOP 





5771 

JMP 

I I NC 


/EXIT 




*600 







/initial start 

138 




4215 

start 

, JMS 

B ITLG 


/ 1 2 

BIT MODE 138 

4070 

JMS 

XLOOP 





4457 

JMS 

I xdtfla 


/DATA FLAG 



4502 

JMS 

I XSPL 





4070 

JMS 

XLOOP 





4460 

JMS 

I xinten 


/INTERRUPT CHECK 



4502 

JMS 

I XSPL 





5531 

JMP 

1 xadtes 





0 00 0 

0 






4221 

JMS 

B I TLG + 4 


/II BIT MODE 138 



5201 

JMP 

S T A R T + 1 





4225 

JMS 

BITLG+10 


/10 BIT MODE 138 



5201 

JMP 

START+1 
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0615 0631 

/INITIAL START 189 
B I T L G , 118 9 


0616 

1020 

TAD SWTEST 

/ 1 2 BIT ENTRANCE 189 

0617 

3055 

D C A MODE 


0 620 

5615 

JMP I .-3 

/EXIT 12 

0621 

0631 

T 1 » 9 


0622 

1021 

TAD SWTEST+1 

/II BIT ENTRANCE 189 

0623 

3055 

OCA MODE 


0 6 24 

5621 

JMP I .-3 

/EXIT 11 BIT 

0 6 25 

0631 

I 119 


0 626 

1 022 

TAD SWTEST+2 

/10 BIT ENTRANCE 189 

0627 

3055 

OCA MODE 


0630 

5625 

JMP I .-3 

/EXIT 10 BIT 

0 631 

2643 

/INSTRUCTION CONVERSION 189 

1189, IS? I .+12 /ST DATA+10 JMP 

0632 

2643 

ISZ I .+11 

/ST DATA+10 JMP 

0633 

2644 

ISZ I .+11 

/ALL NUM+11 JMP 

0 6 3 4 

2644 

ISZ I .+10 

/ALL NUM+11 JMP 

0 6 3 5 

1242 

TAD .+5 


0636 

3646 

D C A I .+10 

/ST DAT A + 6 CONV 

0 6 3 7 

1 242 

TAD . + 3 


0640 

3 64 5 

D C A I .+5 

/ALL NUM+7 CONV 

0641 

5247 

JMP .+6 

/TO AD TEST 

0642 

6004 

ADC 

/CONVERT INST 189 

0643 

0463 

STDATA+10 

/JMP INST 

0644 

1411 

ALLNUM + H 

/JMP INST 

0645 

1412 

ALLNUM+12 

/CONVERT INST 

0646 

0464 

STDATA+11 

/CONVERT INST 

0647 

1253 

TAD .+4 


0 650 

3652 

OCA I .+2 


0651 

5531 

JMP I XADTES 


0652 

1407 

ALLNUM+7 


0653 

4543 

JMS I XTOXOR 


0660 

1066 

* 6 6 0 

/ENTRANCE FOR MANUAL 
TAD XTFXTB 

SET UP 

/CR+LF IN PLACE OF 3 STATE 

0 6 61 

3065 

D C A XTEXTA 


0662 

1461 

TAD I XINSTA 

/FORCE PRINT OUT 

0 663 

3462 

OCA I XINSTB 


0 6 6 4 

1034 

TAD MASKD 

/REMOVE ERROR PRINT OUT 

4665 

3461 

D C A I XINSTA 


0 6 6 6 

1132 

TAD XAUTO 

/FORCE TO LOOP STEADY STATE ACCURACY 

0667 

3130 

D C A XALLNU 


06 70 

7402 

HLT 


06 71 

5271 

JMP . 


4672 

5272 

/GO TO ENTRANCE 1 OF 
/TF XT MULTIPLIER 
TEXTA, JMP . 

6 

0 6 7 3 

4 4 6 4 

JMS I XMSSG 


0 6 7 4 

4 54 3 

4543 

/3 STATES 

06 75 

6 34 0 

6340 


46 7 6 

2324 

2324 
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0677 

0124 

0124 



0700 

0523 

0523 



0701 

4000 

4000 



0702 

5672 

JMP I 

TEXTA 


0703 

5303 

TE X TB , 

JMP , 


0704 

4 4 6 4 

JMS I 

XMSSG 

/CR/LF 

0705 

4543 

4543 



0706 

0000 

0 



0707 

5.70 3 

JMP I 

T EX TB 


071 0 

5310 

SPL, 

JMP . 

/0002 LOOP 

0711 

7604 

las 



0712 

0020 

AND SWTEST 


0713 

7450 

SNA 



071,4 

5710 

JMP I 

SPL 

/NO LOOP 

0715 

4504 

JMS I 

XHALT 

/LOOP CHECK FOR HALT 

0716 

5470 

JMP I 

XLOOP 

/0022 LOOP HALT 

0717 

5317 

TEXTG , 

JMP . 


0720 

4464 

JMS I 

XMSSG 

/INTERRUPT ALWAYS UP 

0721 

4543 

4543 



0722 

1116 

1116 



0723 

2405 

2405 



0724 

2222 

2222 



0725 

2520 

2520 



0726 

2440 

2440 



0727 

2520 

2520 



0730 

0000 

0000 



0731 

5 717 

JMP I 

TP'XTG 




/SELECT 

MULTIPLEXER 

CHANNEL 

0732 

5332 

MUX39E , 

JMP . 

/STOKE CHAN IN-STSW- 

0733 

7604 

LAS 



073 4 

0023 

AND SWTEST+3 

/CHECK FOR NEW MUX CHANNEL 

073 5 

7450 

SNA 



0736 

5732 

JMP I 

MUX39E 

/EXIT NO CHANGE 

073 7 

7604 

LAS 



074 0 

7112 

CLL RTR 


0741 

7112 

CLL RTR 


0742 

7112 

CLL RTR 

/SHIFT RIGHT SIX 

0743 

3101 

D C A STSW 


074 4 

5732 

JMP I 

MUX39E 

/EXIT 

0745 

5345 

TOXOR, 

JMP . 

/SET UP VOLTAGE COUNT 

0746 

7200 

CLA 


/FOR 189 

0747 

1124 

TAD CCONTB 


0750 

4544 

JMS I 

X X 0 R 


0751 

0077 

TESTB 



0752 

3124 

D C A CCONTB 


0753 

1125 

TAD CCONTC 


0754 

4544 

JMS I 

XXOR 


0755 

0077 

TESTB 



0 75 6 

3125 

DC A CCONTC 


0757 

2070 

I S 2 XLOOP 


0760 

5745 

JMP I 

TOXOR 



/test all multiplexer switches 
*1000 
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1000 

6541 

ADCC 

/CL MUX 

1 001 

7200 

CLA 

/CL COUNTER 

1002 

3101 

D C A STSW 

/CL SWITCH STORAGE 

10 03 

4530 

JMS I XALLNU 

/MONO 

1 004 

4532 

JMS I XAUTO 

/STEADY STATE 

1 005 

4515 

JMS I XTEXTE 

/pass complete 

1006 

4507 

JMS I XTRXAL 

/ 

1 007 

0101 

STSW 

/EROM 

1 01 0 

0000 

0 


1 01 1 

1372 

TEXTC+4 

/TO 

1 012 

4467 

JMS I XTEXTC 

/MUX sw number 

1 013 

6544 

AOIC 

/INC SWITCH 

1014 

2101 

ISZ STSW 

/INC COUNT 

1015 

7200 

CLA 

/CHECK SWITCH LIMITS 

1 01 6 

1142 

tad switch 

/SWITCH CO 

1 01 7 

7040 

cma 

/number 

1 020 

1101 

TAD STSW 


1021 

7440 

SZA 


1 022 

5203 

5203 


1 023 

5200 

5200 

/EXIT 


/ 138 CONVERTED DATA IN A.C. 


*1050 


10 5 0 

7200 

AC13SE , 

CLA 


1 051 

6532 

A DC V 


/CONVERT 


1052 

6531 

ADSE 


/WAIT FOR 

FLAG 

1 053 

5252 

JMP 

. -1 



1054 

6534 

ADRB 


/READ BUFFER 

1 055 

2262 

ISZ 

. +5 

/DELAY 


1 056 

5255 

JMP 

. -1 



1 057 

2263 

ISZ 

. +4 



1 060 

5257 

JMP 

. -1 



1 061 

5250 

JMP 

AC138E 


/LOOP 

1 062 

0000 

0 




1 063 

0000 

0 






/ 189 CONVERTED DATA IN 

A.C. 



*1075 




1 075 

6004 

A C 1 89 , 


ADC 


1 076 

52 75 

JMP 

. -1 





*1200 




120.0 

0000 

TRXAL , 


0 


1 2/1 

1210 

TAD 

TRXAL+ 

10 


1 202 

3260 

OCA 

TC 


/STORE INIT NEXT TIME 

1 203 

7200 

CLA 




120 4 

1600 

TAD 

I . -4 


/ADDRESS OF OPERAND 

1 205 

3207 

DC A 

. + 2 



120 6 

5610 

JMP 

I . +2 



1 207 

0000 

0 



/ADDRESS OF OPERAND 

1 21 0 

1212 

TRXAL-t-12 


/CHANGING REFERENCE(P) 

1211 

5203 

JMP 

TRXAL+3 


1 21 2 

1607 

TAD 

I TRXAL+7 

/AC (OPERAND) 
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1213 

0026 

AND 

MASKA 

/ 0 0 0 7 


1214 

3027 

DC A 

MASKA+1 

/000X 


1 215 

1607 

TAD 

I TRXAL+7 

/AC ( OPERAND ) 


1216 

0030 

AND 

maskb 

/0070 


1217 

3031 

DC A 

MASKB+1 

/ 0 0 X 0 


1220 

1607 

TAD 

I TRXAL+7 

/AC ( OPERAND ) 


1221 

0032 

AND 

MASKC 

/ 0 7 00 


1 222 

3033 

DCA 

MASKC+1 

/0X00 


1223 

1607 

TAD 

I TRXAL+7 

/ AC ( OPERAND ) 


1224 

0034 

AND 

MASKD 

/ 700 


1 225 

3035 

DCA 

MASKD+1 

/X000 


1226 

1033 

TAD 

MASKC+1 

/ 0 X 0 0 


1227 

7112 

RTR 

CLL 



1 230 

7010 

RAR 


/ 0 X 0 0 RS3 00X0 


1231 

1035 

TAD 

MASKD+1 

/xoxo 


1 232 

7012 

RTR 




1233 

7010 

RAR 


/ X 0 X 0 RS3 0X0X 


1.234 

1036 

TAD 

MASKD+2 

/6060 + 0X0X = 6X6X 


1235 

3033 

DCA 

MASKC+1 

/TEMP STORAGE 


1236 

2200 

I SZ 

TRXAL 

/INCREMENT FOR 

STORAGE 

1237 

4210 

JMS 

TRXAL+10 

/FIND STORAGE ADDRESS 


1240 

1033 

TAD 

MASKC+1 

/6X6X 


1241 

3607 

DCA 

I TRXAL+7 

/STORE OPERAND AS SPECIFIED 

1242 

1031 

TAD 

MASKB+1 

/ 0 0 X 0 


1243 

7004 

RAL 




1244 

7006 

RTL 


/00X0 SL 3 0X00 


1245 

1027 

TAD 

MASKA+1 

/0X00 + 000 X = 0X0X 


1246 

1036 

TAD 

MASKD+2 

/0X0X + 6060 = 6X6X 


1247 

3035 

DCA 

MASKD+1 

/TEMP STORAGE 


1250 

2200 

ISZ 

TRXAL 

/INCREMENT FOR 

STORAGE 

1 251 

4210 

JMS 

TRXAL+10 

/FIND STORAGE ADDRESS 


1 252 

1035 

TAD 

MASKD+1 

/ 6 X 6 X 


1 253 

3607 

DCA 

I TRXAL+7 

/STORE OPERAND AS SPECIFIED 

1 254 

1260 

TAD 

TC 

/HOUSEKEEPING 


1255 

3210 

DCA 

TRXAL+10 



1256 

2200 

ISZ 

TRXAL 

/INCREMENT FOR 

RETURN 

1 257 

5600 

JMP 

I TRXAL 

/RETURN 


1260 

0000 

TC, 

0 



1261 

5261 

HALT, 

JMP . 

/HALT IF SR 7 = 1 


1 262 

7604 

LAS 




1 263 

0024 

AND 

SWTEST+4 

/0020 


126 4 

7440 

S Z A 




1 265 

7402 

HLT 




1 266 

5661 

JMP 

I HALT 





*1300 




1300 

5300 

TEXTM, 

JMP . 

/NO FLAG 


1301 

4464 

JMS 

I XMSSG 



1302 

4543 

4543 




1303 

1617 

1617 




130 4 

4006 

4006 




1 305 

1401 

1401 




1306 

0700 

0700 




1 307 

5700 

JMP 

I TEXTM 



1310 

5310 

TEXTN , 

JMP . 
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1311 

4464 

JMS I 

XMSSG 

/NO INTERRUPT 

1312 

4543 

4543 



1 313 

1617 

1617 



1314 

4011 

4011 



1 31 5 

1624 

1624 



1316 

0522 

0522 



1317 

2225 

2225 



1 320 

2024 

2024 



1 321 

0000 

0000 



1 322 

5710 

JMP I 

TEXTN 


1 323 

5323 

TEXTP, 

JMP . 


1 324 

4464 

JMS I 

XMSSG 

/LIMITS BAD 

1 325 

4543 

4543 



1 326 

1411 

1411 



132 7 

1511 

1511 



1 330 

2423 

2423 



1331 

4002 

4002 



1 332 

0104 

0104 



1 333 

0000 

0000 



1334 

5723 

JMP I 

TEXTP 


1 335 

5335 

TEXTR, 

JMP . 


1 336 

4464 

JMS I 

XMSSG 

/XXXX DIP 

1 337 

4543 

4543 



1 340 

6060 

6060 



1 341 

6060 

6060 



1 342 

4004 

4004 



1343 

1120 

1120 



1 344 

0000 

0000 



1 345 

5735 

JMP I 

TEXTR 


1346 

5346 

TEXTE, 

JMP . 


1 347 

4464 

JMS I 

XMSSG 

/PASS complete 

1350 

4543 

4543 



1351 

2001 

2001 



1 352 

2323 

2323 



1353 

4003 

4003 



1 354 

1715 

1715 



1355 

2014 

2014 



1 356 

0524 

0524 



1 357 

0500 

0500 



1 360 

5746 

JMP I 

TEXTE 


1361 

5361 

TEXTF, 

JMP . 


1362 

4464 

JMS I 

XMSSG 

/SPACE MINUS 

1 363 

4055 

4055 



1 364 

0000 

0000 



1 365 

5761 

JMP I 

TEXTF 


13 6 6 

5366 

TEXTC , 

JMP . 


1 367 

4464 

JMS I 

XMSSG 

/SW NUMBER 

1 370 

4023 

4023 



1 371 

2740 

2740 



1 372 

6060 

6060 


/SW XX 

1 373 

4343 

4343 



1 374 

4300 

4300 



1 375 

5766 

JMP I 

TEXTC 
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* 1 4 0 0 









/ALL 

NUMBERS CHECK 11 

BIT 





1400 

5200 

ALL NUM , JMP . 






1.401 

6032 

KCC 


/CLEAR TESTER 





140 2 

7200 

CLA 







1403 

3124 

OCA 

CCONTB 

/X=BASE NUMBER 





14 04 

1055 

TAD 

MODE 






1405 

3125 

DCA 

CCONTC 

/X+MODE 





1406 

4070 

JMS 

XLOOP 

/SET UP FOR LOOP 





140 7 

6532 

ADCV 

/ I N I T CONVERSION 189 JMP TO 

TOXOR 




1410 

6531 

adsf 

/wait for flag 





1411 

5210 

JMP 

. -1 

/FOR 189=JMP„+1 





1412 

6534 

ADRB 

/READ CONVERTER 





1413 

3046 

DCA 

BAD 

/TEMP STORAGE 





1414 

1046 

TAD 

BAD 






1415 

7041 

CIA 







1416 

1124 

TAD 

CCONTB 

/DATA=X 





1417 

7440 

S2A 







1 420 

5233 

JMP 

. +13 

/NO 





1421 

4366 

JMS 

EOOL 

/INC TESTER YES 





1422 

7200 

CLA 







1 423 

1125 

TAD 

CCONTC 






1424 

1055 

TAD 

MODE 






1425 

3125 

DCA 

CCONTC 






1426 

1124 

TAD 

CCONTB 






1427 

1055 

TAD 

MODE 






1 430 

7450 

SNA 







1431 

5264 

JMP 

BLIM 

/LOOP 





1432 

3124 

DCA 

CCONTB 






1 433 

7000 

NOP 







143 4 

7200 

CLA 







1 435 

1046 

TAD 

BAD 

/DATA 





1 436 

7041 

CIA 







1 437 

1125 

TAD 

CCONTC 

/ ( X + MODE ) +DATA 





1 440 

7440 

S 2 A 







1441 

5244 

JMP 

. +3 

/INC TESTER NO 





144 2 

4534 

JMS 

I XERNUM 

/BAD ERROR YES 





1 443 

5221 

JMP 

. -22 

/INC TEST, X, X+l 





1 444 

7200 

CLA 


/CHECK FOR VOLTAGE DIP 





1 445 

1055 

TAD 

MODE 






1446 

7106 

CLL 

RTL 






1 447 

7041 

C I A 







1 450 

1124 

TAD 

CCONTB 

/X-MODE 





1 451 

7041 

C I A 







1 452 

1046 

TAD 

BAD 

/X = MODE-DAT A 





1 453 

7650 

SNA 

CLA 






1 454 
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